--- a/ClassDescription.st	Fri Sep 17 15:28:03 1999 +0200
+++ b/ClassDescription.st	Fri Sep 17 15:37:50 1999 +0200
@@ -1464,10 +1464,16 @@
     "recompile all methods which have non-dynamic machineCode 
      (i.e. those, which were loaded from a classLibrary)"
 
-    self methodDictionary keysAndValuesDo:[:aSelector :aMethod |
-        aMethod isLazyMethod ifFalse:[
-            aMethod byteCode isNil ifTrue:[
+    self methodDictionary keysAndValuesDo:[:aSelector :oldMethod |
+        |newMethod|
+
+        oldMethod isLazyMethod ifFalse:[
+            oldMethod byteCode isNil ifTrue:[
                 self recompile:aSelector.
+                newMethod := self compiledMethodAt:aSelector.
+                oldMethod ~~ newMethod ifTrue:[
+                    newMethod sourceFilename:(oldMethod getSource) position:(oldMethod getSourcePosition)
+                ]
             ].
         ].
     ].
@@ -3524,6 +3530,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.90 1999-09-17 13:28:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.91 1999-09-17 13:37:50 cg Exp $'
 ! !
 ClassDescription initialize!