@@ -639,11 +639,11 @@
 	       (match scriptdat
 		      ((name content)
 		       (with-output-to-file name
 			 (lambda ()
 			   (print content)
-			   (change-file-mode name (bitwise-ior perm/irwxg perm/irwxu)))))
+			   (set-file-permissions! name (bitwise-ior perm/irwxg perm/irwxu)))))
 		      (else
 		       (debug:print-info 0 "Invalid script definiton found in [scripts] section of testconfig. \"" scriptdat "\""))))
 	     scripts))
 	  ;; 
 	  (let* ((m            (make-mutex))