--- a/RecursionLock.st	Wed Apr 27 17:03:57 2011 +0200
+++ b/RecursionLock.st	Wed Apr 27 17:14:06 2011 +0200
@@ -104,14 +104,22 @@
 
 !RecursionLock methodsFor:'printing & storing'!
 
-displayString
+displayOn:aGCOrStream
     "return a string to display the receiver - include the
-     count and user-friendly name for your convenience"
+     count for your convenience"
 
-    ^ self class name , '(' , sema count printString , ' name: ' , (self name ? 'unnamed') , ')'
-
-    "Created: / 28.6.1997 / 16:20:33 / cg"
-    "Modified: / 14.12.1999 / 21:04:08 / cg"
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    (aGCOrStream isStream) ifFalse:[
+        ^ super displayOn:aGCOrStream
+    ].
+    aGCOrStream
+        nextPutAll:self class name;
+        nextPut:$(.
+    sema count printOn:aGCOrStream.
+    aGCOrStream nextPutAll:' name: '.
+    (self name ? 'unnamed') printOn:aGCOrStream.
+    aGCOrStream nextPut:$).
 !
 
 name
@@ -310,9 +318,9 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.35 2010-02-04 09:03:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.36 2011-04-27 15:14:06 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.35 2010-02-04 09:03:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.36 2011-04-27 15:14:06 stefan Exp $'
 ! !