# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1723917620 -7200
#      Sat Aug 17 20:00:20 2024 +0200
# Branch Cuis7.0based
# Node ID 6366666267907cde32640b871f231ab0cbfeff39
# Parent  3fca7389c7a98c3feaee3f996094c52736a197b0
SUM: Made the haverize script work for your private working directory.

diff --git a/Haverize.st b/Haverize.st
--- a/Haverize.st
+++ b/Haverize.st
@@ -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