diff -up CLC-INTERCAL-1.-94.-2/CLC-INTERCAL-ICALC-1.-94.-2/bin/intercalc.orig CLC-INTERCAL-1.-94.-2/CLC-INTERCAL-ICALC-1.-94.-2/bin/intercalc
--- CLC-INTERCAL-1.-94.-2/CLC-INTERCAL-ICALC-1.-94.-2/bin/intercalc.orig	2008-03-29 18:12:29.000000000 +0100
+++ CLC-INTERCAL-1.-94.-2/CLC-INTERCAL-ICALC-1.-94.-2/bin/intercalc	2010-05-28 16:02:12.000000000 +0200
@@ -627,6 +627,7 @@ sub find_objects {
     my %of = ();
     my $code = sub {
 	my ($name, $file, $type, $object) = @_;
+	defined $type or return;
 	exists $object_types{uc($type)} or return;
 	my $ot = $object_types{uc($type)};
 	defined $ot or return;