--- a/Class.st	Sat Mar 22 16:22:07 1997 +0100
+++ b/Class.st	Sat Mar 22 17:15:03 1997 +0100
@@ -2020,13 +2020,10 @@
 
     |info|
 
-    UpdateChangeFileQuerySignal raise ifTrue:[
-        info := 'timestamp ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName.
-        self addInfoRecord:info to:aStream. aStream cr.
-    ]
-
-    "Created: 18.11.1995 / 15:41:01 / cg"
-    "Modified: 24.1.1997 / 19:11:19 / cg"
+    info := 'timestamp ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName.
+    self addInfoRecord:info to:aStream. aStream cr.
+
+    "Modified: 22.3.1997 / 17:14:10 / cg"
 !
 
 addInfoRecord:aMessage
@@ -3909,7 +3906,9 @@
                         self warn:('could not update the changes-file\\' , ex errorString) withCRs.
                         ex return
                     ] do:[
-                        doStampIt ifTrue:[self addChangeTimeStampTo:aStream].
+                        doStampIt ifTrue:[
+                            self addChangeTimeStampTo:aStream
+                        ].
                         aBlock value:aStream.
                         aStream cr.
                     ].
@@ -3921,7 +3920,7 @@
     ]
 
     "Created: 18.11.1995 / 15:36:02 / cg"
-    "Modified: 24.1.1997 / 19:14:48 / cg"
+    "Modified: 22.3.1997 / 17:12:40 / cg"
 !
 
 writingChangeWithTimeStamp:stampIt perform:aSelector with:anArgument
@@ -4856,6 +4855,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.265 1997-03-22 15:19:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.266 1997-03-22 16:15:03 cg Exp $'
 ! !
 Class initialize!