--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:01:13	1.1
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/16 20:41:51	1.6
@@ -254,6 +254,7 @@
     my $self = shift;
 
     eval ("use Data::UUID;");
+    return if $@;
     my $ug = Data::UUID->new();
     my $guid = $ug->create_str();
     
@@ -468,12 +469,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);