--- a/ClassOrganizer.st Sat May 18 16:18:41 1996 +0200
+++ b/ClassOrganizer.st Sat May 18 17:37:38 1996 +0200
@@ -145,7 +145,7 @@
selector := row at:idx.
m := class compiledMethodAt:selector.
m isNil ifTrue:[
- Transcript showCr:'no method for ' , selector , ' in ', class name
+ Transcript showCR:'no method for ' , selector , ' in ', class name
] ifFalse:[
m category:category.
]
@@ -204,5 +204,5 @@
!ClassOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.7 1996-05-09 13:47:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.8 1996-05-18 15:37:24 cg Exp $'
! !