--- a/Block.st	Mon Nov 15 10:06:19 2004 +0100
+++ b/Block.st	Tue Nov 16 20:02:57 2004 +0100
@@ -613,6 +613,9 @@
 deepCopyUsing:aDictionary
     "raise an error - deepCopy is not allowed for blocks"
 
+    home isNil ifTrue:[
+        ^ super deepCopyUsing:aDictionary
+    ].
     ^ self deepCopyError
 
     "Created: / 31.3.1998 / 15:46:17 / cg"
@@ -2072,7 +2075,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.140 2004-09-29 09:20:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.141 2004-11-16 19:02:57 penk Exp $'
 ! !
 
 Block initialize!