From 65a981f8abbdd4b57669ba1d7aa353dee331c251 Mon Sep 17 00:00:00 2001
From: Chris Hanson <chris@plainblack.com>
Date: Wed, 1 Jun 2011 13:49:35 -0500
Subject: [PATCH] Corrected leaveVersionTag creating a version tag: 12138

---
 lib/WebGUI/Operation/VersionTag.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index c5d85a812..a45d37a20 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -512,7 +512,9 @@ A reference to the current session.
 
 sub www_leaveVersionTag {
     my $session = shift;
-    WebGUI::VersionTag->getWorking($session)->leaveTag;
+	
+	my $tag = $session->scratch()->get(q{versionTag});
+    WebGUI::VersionTag->getWorking($session)->leaveTag if $tag;
     return www_manageVersions($session);
 }