--- a/ClassOtherChange.st	Wed Jun 18 17:43:38 2003 +0200
+++ b/ClassOtherChange.st	Wed Jun 18 17:44:02 2003 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libbasic3' }"
+
 ClassChange subclass:#ClassOtherChange
 	instanceVariableNames:'type objectType'
 	classVariableNames:''
@@ -11,25 +13,36 @@
 objectType
     "return the value of the instance variable 'objectType' (automatically generated)"
 
-    ^ objectType!
+    ^ objectType
+!
 
 objectType:something
     "set the value of the instance variable 'objectType' (automatically generated)"
 
-    objectType := something.!
+    objectType := something.
+!
+
+source
+    type == #initialize ifTrue:[
+        ^ self fullClassName , ' initialize'.
+    ].
+    self halt.
+!
 
 type
     "return the value of the instance variable 'type' (automatically generated)"
 
-    ^ type!
+    ^ type
+!
 
 type:something
     "set the value of the instance variable 'type' (automatically generated)"
 
-    type := something.! !
+    type := something.
+! !
 
 !ClassOtherChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOtherChange.st,v 1.1 2000-03-21 12:48:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOtherChange.st,v 1.2 2003-06-18 15:44:02 cg Exp $'
 ! !