--- a/MessageTracer.st	Mon Jan 03 16:31:09 2011 +0100
+++ b/MessageTracer.st	Tue Jan 18 20:46:26 2011 +0100
@@ -401,6 +401,7 @@
         newClass instSize:orgClass instSize.
         newClass flags:orgClass flags.
         newClass setClassVariableString:orgClass classVariableString.
+        newClass setSharedPoolNames:(orgClass sharedPoolNames).
         newClass setInstanceVariableString:orgClass instanceVariableString.
         newClass setName:orgClass name.
         newClass setCategory:orgClass category.
@@ -475,8 +476,8 @@
      5 factorial.         
     "
 
-    "Modified: 25.6.1996 / 22:01:05 / stefan"
-    "Modified: 10.9.1996 / 20:07:01 / cg"
+    "Modified: / 25-06-1996 / 22:01:05 / stefan"
+    "Modified: / 18-01-2011 / 20:43:17 / cg"
 ! !
 
 !MessageTracer class methodsFor:'cleanup'!
@@ -729,6 +730,7 @@
 
     aClass setSuperclass:orgClass superclass.
     aClass setClassVariableString:orgClass classVariableString.
+    aClass setSharedPoolNames:(orgClass sharedPoolNames).
     aClass setInstanceVariableString:orgClass instanceVariableString.
     aClass setCategory:orgClass category.
     aClass methodDictionary:orgClass methodDictionary.
@@ -739,8 +741,8 @@
      MessageTracer untrapClass:Point
     "
 
-    "Modified: 5.6.1996 / 13:57:39 / stefan"
-    "Modified: 10.9.1996 / 20:06:23 / cg"
+    "Modified: / 05-06-1996 / 13:57:39 / stefan"
+    "Modified: / 18-01-2011 / 20:43:50 / cg"
 !
 
 untrapClass:aClass selector:aSelector
@@ -3193,11 +3195,11 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.112 2010-10-20 07:45:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.113 2011-01-18 19:46:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.112 2010-10-20 07:45:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.113 2011-01-18 19:46:26 cg Exp $'
 ! !
 
 MessageTracer initialize!