--- a/Semaphore.st	Fri Jun 03 18:15:16 2011 +0100
+++ b/Semaphore.st	Wed Jun 08 22:53:07 2011 +0100
@@ -333,11 +333,23 @@
 
 !Semaphore methodsFor:'printing & storing'!
 
-displayString
+displayOn:aGCOrStream
     "return a string to display the receiver - include the
      count for your convenience"
 
-    ^ self class name , '(' , count printString , ' name: ' , (name ? 'unnamed') , ')'
+    "/ 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:$(.
+    count printOn:aGCOrStream.
+    aGCOrStream nextPutAll:' name: '.
+    (name ? 'unnamed') printOn:aGCOrStream.
+    aGCOrStream nextPut:$).
+
 
     "Modified: 28.6.1997 / 16:21:09 / cg"
 !
@@ -923,15 +935,15 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Semaphore.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+    ^ '$Id: Semaphore.st 10643 2011-06-08 21:53:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /var/local/cvs/stx/libbasic/Semaphore.st,v 1.84 2010-11-30 13:13:46 stefan Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.85 2011/04/27 15:03:57 stefan Exp '
 !
 
 version_SVN
-    ^ '$Id: Semaphore.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+    ^ '$Id: Semaphore.st 10643 2011-06-08 21:53:07Z vranyj1 $'
 ! !
 
 
@@ -939,3 +951,4 @@
 
 
 
+