Bug fix

[clg] / gtk / gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index 1927a52fd2b92e3eb9de674152ba08c6e2128362..05db25273c08c41f0610d343d54855933ebdc232 100644 (file)
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtktypes.lisp,v 1.49 2006-08-14 13:57:37 espen Exp $
+;; $Id: gtktypes.lisp,v 1.50 2006-08-25 12:34:49 espen Exp $
 
 (in-package "GTK")
 
@@ -951,7 +951,7 @@     (default-height :merge t :unbound -1)))
      :allocation :virtual
      :getter "gtk_text_mark_get_name"
      :reader text-mark-name
-     :type string)
+     :type (copy-of string))
     (visible
      :allocation :virtual
      :getter "gtk_text_mark_get_visible"