diff --git a/hspace.hs b/hspace.hs
index 854848e9c73f94b2a11de7e67ed0973cd77c24d2..8b8405c76fc40f6756ccc4c21f85f351b21db085 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -268,7 +268,7 @@ main = do
 
   -- utility functions
   let iofspec spx = Instance.create "new" (rspecMem spx) (rspecDsk spx)
-                    (rspecCpu spx) "ADMIN_down" [] (-1) (-1)
+                    (rspecCpu spx) "running" [] (-1) (-1)
       exitifbad val = (case val of
                          Bad s -> do
                            hPrintf stderr "Failure: %s\n" s :: IO ()