diff -ruN BWidget-1.7.0_old/notebook.tcl BWidget-1.7.0/notebook.tcl
--- BWidget-1.7.0_old/notebook.tcl	2004-01-28 11:59:04.485484720 -0500
+++ BWidget-1.7.0/notebook.tcl	2004-01-28 11:58:37.267622464 -0500
@@ -1158,5 +1158,5 @@
 
 
 proc NoteBook::_get_page_name { path {item current} {tagindex end-1} } {
-    return [string range [lindex [$path.c gettags $item] $tagindex] 2 end]
+    return [string range [lindex [$path.c gettags $item] $tagindex] 0 end]
 }
