X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/27e20924851ac773220fbf5fb810e296a1e0ee6a..a088cea68cf4ca19249d4cf8591e95228dba13f1:/src/domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index f22c73b..e1099b4 100644
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -49,7 +49,7 @@ val your_pths = ref SS.empty
 fun your_paths () = !your_pths
 
 fun setUser user =
-    (usr := Config.testUser;
+    (usr := user;
      your_doms := Acl.class {user = getUser (),
 			     class = "domain"};
      your_usrs := Acl.class {user = getUser (),