diff --git a/packages/gtk/MoreFuncs.st b/packages/gtk/MoreFuncs.st
index 6444179..a8a8322 100644
--- a/packages/gtk/MoreFuncs.st
+++ b/packages/gtk/MoreFuncs.st
@@ -59,18 +59,24 @@ GObject extend [
 
     connectSignal: name to: handler selector: sel userData: userData [
 	<category: 'C call-outs'>
-	<cCall: 'gstGtkConnectSignal' returning: #void
+	<cCall: 'gstGtkConnectSignal' returning: #int
 	args: #(#selfSmalltalk #string #smalltalk #smalltalk #smalltalk )>
 	
     ]
 
     connectSignal: name to: handler selector: sel [
 	<category: 'C call-outs'>
-	<cCall: 'gstGtkConnectSignalNoUserData' returning: #void
+	<cCall: 'gstGtkConnectSignalNoUserData' returning: #int
 	args: #(#selfSmalltalk #string #smalltalk #smalltalk )>
 	
     ]
 
+    disconnect: anInteger [
+	<category: 'C call-outs'>
+	<cCall: 'g_signal_handler_disconnect' returning: #void
+	args: #(#self #int )>
+    ]
+
     narrow [
 	<category: 'C call-outs'>
 	<cCall: 'gstGtkNarrowGObjectOOP' returning: #smalltalk
diff --git a/packages/gtk/gst-gtk.c b/packages/gtk/gst-gtk.c
index bcc19fa..a400aa1 100644
--- a/packages/gtk/gst-gtk.c
+++ b/packages/gtk/gst-gtk.c
@@ -647,8 +647,7 @@ connect_signal (OOP widget,
   closure = create_smalltalk_closure (receiver, selector, user_data,
 				      widget, n_params);
 
-  g_signal_connect_closure (cWidget, event_name, closure, FALSE);
-  return (0);
+  return g_signal_connect_closure (cWidget, event_name, closure, FALSE);
 }
 
 int