diff --git a/src/cfs/defs.172 b/src/cfs/defs.172
index 0aaccf32..0b349811 100644
--- a/src/cfs/defs.172
+++ b/src/cfs/defs.172
@@ -1,7 +1,7 @@
 
 "(c) Copyright 1978, Massachusetts Institute of Technology.  All rights reserved."
 
-<AND <L? ,MUDDLE 100>
+; <AND <L? ,MUDDLE 100>
      <NOT <OR <LOOKUP "COMPILE" <ROOT>>
 	      <LOOKUP "GROUP-GLUE" <GET INITIAL OBLIST>>>>
      <USE "LSRTNS">>
diff --git a/src/cfs/rooms.395 b/src/cfs/rooms.395
index 5d9aff01..bd0a9063 100644
--- a/src/cfs/rooms.395
+++ b/src/cfs/rooms.395
@@ -129,7 +129,7 @@
 		 (T .X)>>
 	<GXUNAME>>>
 
-<DEFINE ITS-GET-NAME (UNAME "AUX" (NM <LSR-ENTRY .UNAME>) CMA JR LFST LLST
+; <DEFINE ITS-GET-NAME (UNAME "AUX" (NM <LSR-ENTRY .UNAME>) CMA JR LFST LLST
 		      TLEN TSTR STR)
 	#DECL ((STR TSTR UNAME) STRING (NM CMA JR) <OR STRING FALSE>
 	       (TLEN LLST LFST) FIX)
@@ -310,7 +310,9 @@
 	<SETG INTIME <DSKDATE>>
 	<COND (<L? .MUDDLE 100>
 	       <AND <G? <LENGTH .XUNM> 2> <=? <SUBSTRUC .XUNM 0 3> "___"> <QUIT>>
-	       <SET FN <ITS-GET-NAME .XUNM>>)
+;	       <SET FN <ITS-GET-NAME .XUNM>>
+	       <SET FN "JRandom">
+		    )
 	      (<SET FN <GET-NAME>>
 	       <COND (<NOT ,TENEX?>
 		      <AND <0? <13 ,OUTCHAN>>