--- a/Metaclass.st Thu Jan 09 02:08:24 1997 +0100
+++ b/Metaclass.st Thu Jan 09 02:10:25 1997 +0100
@@ -1498,7 +1498,7 @@
"check for instvar redefs within local instvars"
names keysAndValuesDo:[:index :aName |
(names indexOf:aName startingAt:index+1) ~~ 0 ifTrue:[
- self warn:'instance variable ''' , aName , '''\occurs multiple times in instVarString.\\Class notinstalled.' withCRs.
+ self warn:'instance variable ''' , aName , '''\occurs multiple times in instVarString.\\Class not installed.' withCRs.
^ false.
]
].
@@ -1516,7 +1516,7 @@
^ true
"Created: 8.1.1997 / 21:09:14 / cg"
- "Modified: 8.1.1997 / 21:13:41 / cg"
+ "Modified: 9.1.1997 / 02:10:02 / cg"
!
copyInvalidatedMethodsFrom:oldClass for:newClass
@@ -1762,5 +1762,5 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.98 1997-01-09 00:44:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.99 1997-01-09 01:10:25 cg Exp $'
! !