--- a/Context.st	Wed Apr 09 21:39:46 2008 +0200
+++ b/Context.st	Wed Apr 09 21:39:52 2008 +0200
@@ -749,13 +749,14 @@
 
 !Context methodsFor:'copying'!
 
-deepCopyUsing:aDictionary
+deepCopyUsing:aDictionary postCopySelector:postCopySelector
     "raise an error - deepCopy is not allowed for contexts"
 
     |copyOfMe|
 
     copyOfMe := self shallowCopy.
     copyOfMe setSender:nil.
+    copyOfMe perform:postCopySelector with:self.
     ^ copyOfMe
 
     "Created: / 31-03-1998 / 15:51:14 / cg"
@@ -2247,7 +2248,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.137 2007-12-04 16:24:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.138 2008-04-09 19:39:52 ab Exp $'
 ! !
 
 Context initialize!