diff --git a/Canvas/Canvas.pm b/Canvas/Canvas.pm
index 210bc30b..beaa2a13 100644
--- a/Canvas/Canvas.pm
+++ b/Canvas/Canvas.pm
@@ -1,6 +1,6 @@
 package Tk::Canvas;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.013'; # sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 
diff --git a/DragDrop/DragDrop.pm b/DragDrop/DragDrop.pm
index bdc54f74..46bbacdd 100644
--- a/DragDrop/DragDrop.pm
+++ b/DragDrop/DragDrop.pm
@@ -4,7 +4,7 @@ require Tk::Toplevel;
 require Tk::Label;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.015'; # sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Common Tk::Toplevel);
 
diff --git a/DragDrop/DragDrop/Rect.pm b/DragDrop/DragDrop/Rect.pm
index 04cfa877..0e62e35a 100644
--- a/DragDrop/DragDrop/Rect.pm
+++ b/DragDrop/DragDrop/Rect.pm
@@ -5,7 +5,7 @@ use Carp;
 # Proxy class which represents sites to the dropping side
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.012'; # sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
 
 # Some default methods when called site side
 # XIDs and viewable-ness from widget
diff --git a/DragDrop/DragDrop/SunDrop.pm b/DragDrop/DragDrop/SunDrop.pm
index 422a0819..87489fed 100644
--- a/DragDrop/DragDrop/SunDrop.pm
+++ b/DragDrop/DragDrop/SunDrop.pm
@@ -2,7 +2,7 @@ package Tk::DragDrop::SunDrop;
 require  Tk::DragDrop::Rect;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #5 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.006'; # sprintf '4.%03d', q$Revision: #5 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Rect);
 use strict;
diff --git a/DragDrop/DragDrop/SunSite.pm b/DragDrop/DragDrop/SunSite.pm
index ab3f4f97..ac6f7488 100644
--- a/DragDrop/DragDrop/SunSite.pm
+++ b/DragDrop/DragDrop/SunSite.pm
@@ -2,7 +2,7 @@ package Tk::DragDrop::SunSite;
 require Tk::DropSite;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 
 use Tk::DragDrop::SunConst;
 use base  qw(Tk::DropSite);
diff --git a/DragDrop/DragDrop/XDNDDrop.pm b/DragDrop/DragDrop/XDNDDrop.pm
index 7376c8d6..879874ce 100644
--- a/DragDrop/DragDrop/XDNDDrop.pm
+++ b/DragDrop/DragDrop/XDNDDrop.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::XDNDDrop;
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 use base qw(Tk::DragDrop::Rect);
 
 sub XDND_PROTOCOL_VERSION () { 4 }
diff --git a/DragDrop/DragDrop/XDNDSite.pm b/DragDrop/DragDrop/XDNDSite.pm
index 4ac75d63..9661b009 100644
--- a/DragDrop/DragDrop/XDNDSite.pm
+++ b/DragDrop/DragDrop/XDNDSite.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::XDNDSite;
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 use base qw(Tk::DropSite);
 
 sub XDND_PROTOCOL_VERSION () { 4 }
diff --git a/DragDrop/DropSite.pm b/DragDrop/DropSite.pm
index 3519c108..71b70d12 100644
--- a/DragDrop/DropSite.pm
+++ b/DragDrop/DropSite.pm
@@ -3,7 +3,7 @@ require Tk::DragDrop::Common;
 require Tk::DragDrop::Rect;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.008'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Common Tk::DragDrop::Rect);
 
diff --git a/DragDrop/Win32Site/Win32Site.pm b/DragDrop/Win32Site/Win32Site.pm
index f45d06bc..ca9029dc 100644
--- a/DragDrop/Win32Site/Win32Site.pm
+++ b/DragDrop/Win32Site/Win32Site.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::Win32Site;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 require DynaLoader;
diff --git a/Entry/Entry.pm b/Entry/Entry.pm
index 51b3f0c6..68e47109 100644
--- a/Entry/Entry.pm
+++ b/Entry/Entry.pm
@@ -13,7 +13,7 @@ package Tk::Entry;
 
 use vars qw($VERSION);
 use strict;
-$VERSION = sprintf '4.%03d',q$Revision: #17 $ =~ /#(\d+)/;
+$VERSION = '4.018'; # sprintf '4.%03d',q$Revision: #17 $ =~ /#(\d+)/;
 
 # modify it under the same terms as Perl itself, subject
 # to additional disclaimer in license.terms due to partial
diff --git a/Event/Event/IO.pm b/Event/Event/IO.pm
index 10b47e24..3cd2fda3 100644
--- a/Event/Event/IO.pm
+++ b/Event/Event/IO.pm
@@ -3,7 +3,7 @@ use strict;
 use Carp;
 
 use vars qw($VERSION @EXPORT_OK);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use base qw(Exporter);
 use Symbol ();
diff --git a/Listbox/Listbox.pm b/Listbox/Listbox.pm
index 249a8eed..c73c0c19 100644
--- a/Listbox/Listbox.pm
+++ b/Listbox/Listbox.pm
@@ -37,7 +37,7 @@ package Tk::Listbox;
 
 use vars qw($VERSION @Selection $Prev);
 use strict;
-$VERSION = sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.015'; # sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev $XS_VERSION);
 use Tk::Clipboard ();
diff --git a/TixGrid/TixGrid.pm b/TixGrid/TixGrid.pm
index 2dd23809..35f7e6c2 100644
--- a/TixGrid/TixGrid.pm
+++ b/TixGrid/TixGrid.pm
@@ -20,7 +20,7 @@ BEGIN
 
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.010'; # sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev $XS_VERSION);
 use Tk::Widget;
diff --git a/Tk/Clipboard.pm b/Tk/Clipboard.pm
index b0eb0ea2..16ab74a5 100644
--- a/Tk/Clipboard.pm
+++ b/Tk/Clipboard.pm
@@ -5,7 +5,7 @@ package Tk::Clipboard;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use AutoLoader qw(AUTOLOAD);
 use Tk qw(catch);
diff --git a/Tk/Derived.pm b/Tk/Derived.pm
index c31c205d..1685c781 100644
--- a/Tk/Derived.pm
+++ b/Tk/Derived.pm
@@ -8,7 +8,7 @@ use strict;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.011'; # sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
 
 $Tk::Derived::Debug = 0;
 
diff --git a/Tk/Labelframe.pm b/Tk/Labelframe.pm
index 14c577b5..dc167fe1 100644
--- a/Tk/Labelframe.pm
+++ b/Tk/Labelframe.pm
@@ -2,7 +2,7 @@ package Tk::Labelframe;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
+$VERSION = '4.003'; # sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
 
 # New widget which is a kind of Frame with a label ...
 
diff --git a/Tk/Panedwindow.pm b/Tk/Panedwindow.pm
index d984b648..ae279f20 100644
--- a/Tk/Panedwindow.pm
+++ b/Tk/Panedwindow.pm
@@ -2,7 +2,7 @@ package Tk::Panedwindow;
 use strict;
 
 use vars qw/$VERSION/;
-$VERSION = sprintf '4.%03d', q$Revision: #3 $ =~ /#(\d+)/;
+$VERSION = '4.004'; # sprintf '4.%03d', q$Revision: #3 $ =~ /#(\d+)/;
 
 # A Panedwindow widget (similar to Adjuster).
 
diff --git a/Tk/Photo.pm b/Tk/Photo.pm
index a596dc4d..587c8c23 100644
--- a/Tk/Photo.pm
+++ b/Tk/Photo.pm
@@ -1,7 +1,7 @@
 package Tk::Photo;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.006'; # sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 
diff --git a/Tk/Spinbox.pm b/Tk/Spinbox.pm
index 673a1e18..84998307 100644
--- a/Tk/Spinbox.pm
+++ b/Tk/Spinbox.pm
@@ -2,7 +2,7 @@ package Tk::Spinbox;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d',q$Revision: #6 $ =~ /#(\d+)/;
+$VERSION = '4.007'; # sprintf '4.%03d',q$Revision: #6 $ =~ /#(\d+)/;
 
 use base 'Tk::Entry';
 
diff --git a/demos/demos/widget_lib/Plot.pm b/demos/demos/widget_lib/Plot.pm
index 5ce7791a..c5416b0e 100644
--- a/demos/demos/widget_lib/Plot.pm
+++ b/demos/demos/widget_lib/Plot.pm
@@ -12,7 +12,7 @@ package Plot;
 require 5.005_03;
 
 use vars qw/$VERSION @ISA/;
-$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.008'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use Tk::Frame;
 use base  qw/Tk::Frame/;
diff --git a/demos/demos/widget_lib/WidgetDemo.pm b/demos/demos/widget_lib/WidgetDemo.pm
index 61513b65..a05d1ace 100644
--- a/demos/demos/widget_lib/WidgetDemo.pm
+++ b/demos/demos/widget_lib/WidgetDemo.pm
@@ -3,7 +3,7 @@ package WidgetDemo;
 use 5.005_03;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.012'; # sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
 
 use Tk 800.000;
 use Carp;
diff --git a/ptked b/ptked
index ffdce10f..99490091 100755
--- a/ptked
+++ b/ptked
@@ -6,7 +6,7 @@ use Cwd;
 use Getopt::Long;
 
 use vars qw($VERSION $portfile);
-$VERSION = sprintf '4.%03d', q$Revision: #29 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.030'; # sprintf '4.%03d', q$Revision: #29 $ =~ /\D(\d+)\s*$/;
 
 my %opt;
 INIT