--- a/OSHandle.st	Fri Dec 08 17:47:16 2000 +0100
+++ b/OSHandle.st	Fri Dec 08 18:08:59 2000 +0100
@@ -4,10 +4,23 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'System-Support'
+	category:'Compatibility-ST80'
 !
 
 
+!OSHandle class methodsFor:'Compatibility - ST80'!
+
+currentOS
+    "ST-80 compatibility."
+
+    "/ mhmh what does ST80/VW returned here ?
+
+    OperatingSystem isUNIXlike ifTrue:[^ #unix].
+    OperatingSystem isOS2like  ifTrue:[^ #os2].
+    OperatingSystem isMSWINDOWSlike  ifTrue:[^ #windows].
+    ^ #unknown
+! !
+
 !OSHandle methodsFor:'finalization'!
 
 disposed
@@ -17,5 +30,5 @@
 !OSHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.2 2000-06-23 18:54:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.3 2000-12-08 17:08:59 cg Exp $'
 ! !