--- a/Smalltalk.st	Thu Oct 07 13:37:14 1999 +0200
+++ b/Smalltalk.st	Thu Oct 07 13:38:35 1999 +0200
@@ -446,6 +446,10 @@
 
 !Smalltalk class methodsFor:'Squeak compatibility'!
 
+beep
+    Screen current beep
+!
+
 garbageCollect
    ObjectMemory garbageCollect
 !
@@ -4866,5 +4870,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.364 1999-10-07 11:35:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.365 1999-10-07 11:38:35 cg Exp $'
 ! !