# HG changeset patch
# User penk
# Date 1032942328 -7200
# Node ID 4ccf91dfeba241ad40d8c7bfebaa322cd6f3d6b6
# Parent  323056b2a065139dadfa91e4eaa3594316a401e1
oops - catch #copy

diff -r 323056b2a065 -r 4ccf91dfeba2 Autoload.st
--- a/Autoload.st	Mon Sep 23 21:49:08 2002 +0200
+++ b/Autoload.st	Wed Sep 25 10:25:28 2002 +0200
@@ -461,6 +461,12 @@
     ^ 'not yet loaded'
 !
 
+copy
+    "catch copy - load the class and resend #copy to the real one"
+
+    ^ self doesNotUnderstand:(Message selector:#copy)
+!
+
 doesNotUnderstand:aMessage
     "caught a message; load the class and retry the message"
 
@@ -630,6 +636,7 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.113 2002-07-09 14:01:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.114 2002-09-25 08:25:28 penk Exp $'
 ! !
+
 Autoload initialize!