--- a/STXInstaller.st	Tue Sep 17 01:47:56 1996 +0200
+++ b/STXInstaller.st	Wed Sep 18 10:14:23 1996 +0200
@@ -524,6 +524,16 @@
                         default:nil.     
         whatToDo isNil ifTrue:[^false].
         whatToDo == #remove ifTrue:[
+            ((stxLibDir findString:'stx') == 0
+            and:[(stxLibDir findString:'smalltalk') == 0]) ifTrue:[
+                "/ confirm again
+                (self confirm:(resources 
+                                string:'are you certain that the directory to remove
+is really an smalltalk directory ?
+
+Remove it now ?')) ifFalse:[ ^ true].
+            ].
+
             (OperatingSystem recursiveRemoveDirectory:stxLibDir)
             ifFalse:[
                 self warn:(resources string:'mhmh - could not remove old installation.')