MODULE ObjectNil;
IMPORT StdLog;
TYPE
	Object = POINTER TO ObjectDesc;
	ObjectDesc = RECORD
	END;
VAR	
	x: Object; (* default initialization to NIL *)
	
PROCEDURE DoIt*;
BEGIN
	IF x = NIL THEN
		StdLog.String("x is NIL");StdLog.Ln
	END
END DoIt;

END ObjectNil.