Index: classes/undef.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/undef.pmc,v
retrieving revision 1.5
diff -r1.5 undef.pmc
29a30,34
>   void set_pmc(PMC* other) {
>     VTABLE_morph(INTERP, SELF, enum_class_Ref);
>     VTABLE_set_pmc(INTERP, SELF, other);    
>   }
> 
Index: classes/ref.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/ref.pmc,v
retrieving revision 1.19
diff -r1.19 ref.pmc
89c89
< Raises an exception. Use C<init_pmc()> instead.
---
> Sets the referenced PMC to C<null>.
96c96
<         internal_exception(1, "Ref init without PMC\n");
---
>         SELF.init_pmc( (PMC *)0 );
105,106d104
< If C<initializer> is C<NULL> then an exception is raised.
< 
111a110,111
>         PMC_pmc_val(SELF) = initializer; /* the refered PMC itself */
> 	PObj_custom_mark_SET(SELF);
113,114d112
<             PMC_pmc_val(SELF) = initializer; /* the refered PMC itself */
<             PObj_custom_mark_SET(SELF);
122,123d119
<         else
<             internal_exception(1, "Ref init with NULL PMC\n");
221a218,219
> Allowed null value by TOGoS 2004.07.28 (evil+bad?)
>