636666626790 — Gerald Klix (speedy) a month ago 
SUM: Made the haverize script work for your private working directory.
patch browse 
1 files changed, 6 insertions(+), 5 deletions(-)

M Haverize.st

M Haverize.st +6 -5
@@ 1,12 1,13 @@ 
-| haverVersion |
+| haverSourceDirectory haverVersion |
+(haverSourceDirectory := (DirectoryEntry smalltalkImageDirectory) / 'HaverOnCuis')
+    isDirectory ifFalse: [
+        haverSourceDirectory := (DirectoryEntry currentDirectory) ].
 haverVersion :=
-    (DirectoryEntry currentDirectory // 'HaverVersionNumber.txt')
+    haverSourceDirectory // 'HaverVersionNumber.txt' ::
         readStream nextNumber.
-
 Feature 
     require:
-        (DirectoryEntry currentDirectory / 'haver' // 'Haverize.pck.st' :: pathName).
-
+        (haverSourceDirectory / 'haver' // 'Haverize.pck.st' :: pathName).
 HaverizePackage
     haverVersion: haverVersion;
     saveAsNewHaverVersionWhenIntegrating