diff --git a/compiler/params.stanza b/compiler/params.stanza
index c106ab81..57721116 100644
--- a/compiler/params.stanza
+++ b/compiler/params.stanza
@@ -18,7 +18,7 @@ public defn compiler-flags () :
   to-tuple(COMPILE-FLAGS)
 
 ;========= Stanza Configuration ========
-public val STANZA-VERSION = [0 18 93]
+public val STANZA-VERSION = [0 18 94]
 public var STANZA-INSTALL-DIR:String = ""
 public var OUTPUT-PLATFORM:Symbol = `platform
 public var STANZA-PKG-DIRS:List<String> = List()
diff --git a/core/core.stanza b/core/core.stanza
index 92927258..2b3a0d74 100644
--- a/core/core.stanza
+++ b/core/core.stanza
@@ -5750,7 +5750,7 @@ public defn FileDeletionError (path:String, msg:String) :
 ;============================================================
 
 public lostanza defn chmod (path:ref<String>, value:ref<Int>) -> ref<False> :
-  val r = call-c clib/chmod(addr!(path.chars), 0o777)
+  val r = call-c clib/chmod(addr!(path.chars), value.value)
   if r == -1 : throw(ChangePermissionsError(path, linux-error-msg()))
   return false