--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:14:43	1.4
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:50:07	1.5
@@ -468,12 +468,8 @@
     return $self->id($obj)
       if $self->id($obj);
 
-	# insert global unique identifier in object to persist across re-deploys 
-	$obj->{guid} = $self->make_guid();
-
-  # debug
-  use Data::Dumper;
-	print Dumper($obj);
+  	# insert global unique identifier in object to persist across re-deploys 
+	  $obj->{guid} = $self->make_guid();
 	
     $saving->insert($obj);