--- /dev/null
+
+<FLOAD "PS:<COMPIL>MUDREF.NBIN">
+
+<DEFINE BEGIN-MHACK ()
+ <SET READ-TABLE <SETG READ-TABLE
+ <COND (<GASSIGNED? READ-TABLE> ,READ-TABLE)
+ (ELSE <IVECTOR 128 0>)>>>
+ <PUT .READ-TABLE <+ <ASCII !"|> 1> ,MUDREFIN>
+ <PRINTTYPE MUDREF!-OP ,OUTPUT-MUDREF>
+ T>
+
+<DEFINE END-MHACK ()
+ <PUT ,READ-TABLE <+ <ASCII !"|> 1> 0>
+ <PRINTTYPE MUDREF!-OP ,PRINT>
+ T>
+
+ \f
\ No newline at end of file