--- a/Class.st	Mon May 20 10:45:52 1996 +0200
+++ b/Class.st	Mon May 20 10:49:52 1996 +0200
@@ -3553,44 +3553,44 @@
 
     mgr := self sourceCodeManager.
     mgr notNil ifTrue:[
-	info := mgr sourceInfoOfClass:self
+        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
-	    ]
-	].
-	dir notNil ifTrue:[
-	    p notEmpty ifTrue:[p := p , ':'].
-	    p := p , dir.
-	].
-	lib notNil ifTrue:[
-	    lib ~= dir ifTrue:[
-		p notEmpty ifTrue:[p := p , ':'].
-		p := p , lib.
-	    ]
-	].
-	p notEmpty ifTrue:[
-	    p := '(' , p , ')'.
-
-	    package notNil ifTrue:[
-		(name , ': changing packageID to ''' , p , '''') infoPrintNL.
-	    ].
-	    package := p.
-
-	    methodArray do:[:aMethod |
-		aMethod package isNil ifTrue:[
-		    aMethod package:p
-		]
-	    ]
-	].
+        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
+            ]
+        ].
+        dir notNil ifTrue:[
+            p notEmpty ifTrue:[p := p , ':'].
+            p := p , dir.
+        ].
+        lib notNil ifTrue:[
+            lib ~= dir ifTrue:[
+                p notEmpty ifTrue:[p := p , ':'].
+                p := p , lib.
+            ]
+        ].
+        p notEmpty ifTrue:[
+            p := '(' , p , ')'.
+
+            package notNil ifTrue:[
+                (name , ': changing packageID to ''' , p , '''') infoPrintCR.
+            ].
+            package := p.
+
+            methodArray do:[:aMethod |
+                aMethod package isNil ifTrue:[
+                    aMethod package:p
+                ]
+            ]
+        ].
     ].
     ^ self
 
@@ -3599,7 +3599,7 @@
      MemoryMonitor setPackageFromRevision
     "
 
-    "Modified: 7.2.1996 / 14:36:48 / cg"
+    "Modified: 20.5.1996 / 10:31:51 / cg"
 !
 
 sourceStream
@@ -3971,6 +3971,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.157 1996-05-18 15:26:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.158 1996-05-20 08:49:52 cg Exp $'
 ! !
 Class initialize!