# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 936290771 -7200
# Node ID 2b51bafd8243d38993767829b6a0a0ac11c60e9d
# Parent  912683a1af9463bc8316a2f2918271f4200db0ee
checkin from browser

diff -r 912683a1af94 -r 2b51bafd8243 Class.st
--- a/Class.st	Thu Sep 02 17:20:49 1999 +0200
+++ b/Class.st	Thu Sep 02 18:46:11 1999 +0200
@@ -3761,7 +3761,7 @@
     "helper for the checkin procedure.
      Update my #version method, to now return newRevisionString."
 
-    |cls "vs m mgr"|
+    |cls mthd "vs m mgr"|
 
     cls := self.
     self isMeta ifFalse:[
@@ -3779,7 +3779,7 @@
 
     Class methodRedefinitionSignal answer:#keep do:[
         Class withoutUpdatingChangesDo:[
-            Compiler compile:'version
+            mthd := Compiler compile:'version
     ^ ''' , newRevisionString , '''
 '
                      forClass:cls 
@@ -3787,7 +3787,10 @@
                      notifying:nil 
                      install:true 
                      skipIfSame:false 
-                     silent:true. 
+                     silent:true.
+            mthd notNil ifTrue:[
+                mthd package:self package
+            ]
         ]
     ].
 "/ ('updated to :' , newRevisionString) printNL.
@@ -3906,5 +3909,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.349 1999-09-01 11:29:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.350 1999-09-02 16:46:11 cg Exp $'
 ! !