diff --git a/protogeni/lib/GeniSlice.pm.in b/protogeni/lib/GeniSlice.pm.in
index b937d462d40dbafba097c9cd969f17d985287fbe..9562021aa53e19f5e7dbc3aeb9939aeeef2da4d5 100755
--- a/protogeni/lib/GeniSlice.pm.in
+++ b/protogeni/lib/GeniSlice.pm.in
@@ -551,6 +551,14 @@ sub UnLock($)
     $self->{'STITCHLOCKED'} = 0;
     return 0;
 }
+sub TakeLock($)
+{
+    my ($self) = @_;
+    
+    $self->{'LOCKED'} = $$;
+    $self->{'STITCHLOCKED'} = $$;
+    return 0;
+}
 
 #
 # Wait for lock with timeout (in seconds).