Added `raise' to override-scheme-list.

diff --git a/ice-9/gwish.scm b/ice-9/gwish.scm
index 3a05ac8..8efff18 100644 (file)
--- a/ice-9/gwish.scm
+++ b/ice-9/gwish.scm
@@ -49,7 +49,7 @@
 ;; in Scheme but which, in this context, ought to refer
 ;; to Tcl/Tk commands.
 
-(define override-scheme-list '(bind))
+(define override-scheme-list '(bind raise))
 
 (for-each
  (lambda (name)