--- a/Class.st	Fri Sep 08 20:17:23 2006 +0200
+++ b/Class.st	Tue Sep 12 14:28:38 2006 +0200
@@ -4098,40 +4098,40 @@
 
     mgr := self sourceCodeManager.
     mgr notNil ifTrue:[
-        info := mgr sourceInfoOfClass:self
-    ].
-
-    info notNil ifTrue:[
-        mod := info at:#module ifAbsent:nil.    "/ stx, aeg, <your-organization>
-        dir := info at:#directory ifAbsent:nil. "/ libbasic, libtool ...
-        lib := info at:#library ifAbsent:dir.
-
-        p := ''.
-        mod notNil ifTrue:[
+        info := mgr sourceInfoOfClass:self.
+
+        info notNil ifTrue:[
+            mod := info at:#module ifAbsent:nil.    "/ stx, aeg, <your-organization>
+            dir := info at:#directory ifAbsent:nil. "/ libbasic, libtool ...
+            lib := info at:#library ifAbsent:dir.
+
+            p := ''.
+            mod notNil ifTrue:[
 "/            mod ~= 'stx' ifTrue:[
-                p := p , mod
+                    p := p , mod
 "/            ]
-        ].
-        dir notNil ifTrue:[
-            p notEmpty ifTrue:[p := p , ':'].
-            p := p , dir.
-        ] ifFalse:[
-            lib notNil ifTrue:[
+            ].
+            dir notNil ifTrue:[
                 p notEmpty ifTrue:[p := p , ':'].
-                p := p , lib.
+                p := p , dir.
+            ] ifFalse:[
+                lib notNil ifTrue:[
+                    p notEmpty ifTrue:[p := p , ':'].
+                    p := p , lib.
+                ].
             ].
-        ].
-        (p notEmpty and:[p ~= package]) ifTrue:[
+            (p notEmpty and:[p ~= package]) ifTrue:[
 "/            package notNil ifTrue:[
 "/                (name , ': changing packageID from ''' , package , ''' to ''' , p , '''') infoPrintCR.
 "/            ].
-            package := p.
-
-            self methodDictionary do:[:aMethod |
-                aMethod package isNil ifTrue:[
-                    aMethod setPackage:p
+                package := p.
+
+                self methodDictionary do:[:aMethod |
+                    aMethod package isNil ifTrue:[
+                        aMethod setPackage:p
+                    ]
                 ]
-            ]
+            ].
         ].
     ].
     ^ self
@@ -4141,8 +4141,8 @@
      MemoryMonitor setPackageFromRevision
     "
 
-    "Modified: 12.6.1996 / 11:49:31 / stefan"
-    "Modified: 7.1.1997 / 12:01:08 / cg"
+    "Modified: / 12-06-1996 / 11:49:31 / stefan"
+    "Modified: / 12-09-2006 / 14:15:47 / cg"
 !
 
 sourceFileSuffix
@@ -4615,5 +4615,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.503 2006-09-04 17:17:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.504 2006-09-12 12:28:38 cg Exp $'
 ! !