--- 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.')