--- a/DeviceWorkstation.st	Sat Jan 31 13:58:42 2015 +0100
+++ b/DeviceWorkstation.st	Sat Jan 31 14:05:12 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 HostGraphicsDevice subclass:#DeviceWorkstation
 	instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
 		bitsBlue redMask greenMask blueMask redShift greenShift blueShift
@@ -7085,12 +7087,12 @@
 !DeviceWorkstation methodsFor:'misc'!
 
 beep
+    "output an audible beep or bell"
+
     "{ Pragma: +optSpace }"
 
-    "output an audible beep or bell"
-
     UserPreferences current beepEnabled ifTrue:[
-	Stdout nextPut:(Character bell)
+        Stdout nextPut:(Character bell)
     ]
 
     "Modified: / 13.1.1997 / 22:56:13 / cg"
@@ -8425,11 +8427,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.626 2014-11-28 16:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.626 2014-11-28 16:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $'
 ! !