--- source.tcl.orig	2004-12-28 23:36:47.000000000 -0800
+++ source.tcl	2004-12-28 23:37:09.000000000 -0800
@@ -51,6 +51,10 @@
 #
 #
 
+tk::unsupported::ExposePrivateCommand tkTextSetCursor
+tk::unsupported::ExposePrivateCommand tkTextScrollPages
+tk::unsupported::ExposePrivateCommand tkTextInsert
+
 proc db.set { id field val args } {
     global db
     if { $args == {} } {