X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.text.lisp;fp=gtk%2Fgtk.text.lisp;h=4d69fc8aa97cd07d86608ee3e202a7d5ecb0570e;hb=8c4826be668f4147572d149fa245e3e6dca9bf03;hp=716d6b1a1dea8e983077864d1ea0909b48032ca0;hpb=773d2a73ddfd56842675472852526883c79a571b;p=cl-gtk2.git

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 716d6b1..4d69fc8 100644
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -868,7 +868,7 @@
 
 (defun text-tag-table-foreach (table function)
   (with-stable-pointer (ptr function)
-    (gtk-text-tag-table-foreach table (callback gtk-text-table-foreach-function) ptr)))
+    (gtk-text-tag-table-foreach table (callback gtk-text-tag-table-foreach-function) ptr)))
 
 (export 'text-tag-table-foreach)