diff --git a/gnome/ChangeLog b/gnome/ChangeLog
index 3f336f3a5..039f2ed4e 100644
--- a/gnome/ChangeLog
+++ b/gnome/ChangeLog
@@ -1,3 +1,7 @@
+1998-04-16  Miguel de Icaza  <miguel@nuclecu.unam.mx>
+
+	* gwidget.c (x_radio_toggle): Never commit non-compilable code.
+
 1998-04-15  Miguel de Icaza  <miguel@nuclecu.unam.mx>
 
 	* gwidget.c (remove_hotkey, x_create_radio): Radio buttons should
diff --git a/gnome/gconf.h b/gnome/gconf.h
index 800f08e03..cb8fd8c36 100644
--- a/gnome/gconf.h
+++ b/gnome/gconf.h
@@ -30,6 +30,7 @@
 #define PORT_WANTS_ARGP                  1
 #define PORT_WIDGET_WANTS_HISTORY        0
 #define PORT_HAS_UPDATE_MARKS            1
+#define PORT_HAS_RADIO_TOGGLE            1
 
 #define mi_getch() fprintf (stderr, "mi_getch is not implemented in this port\n")
 #define frontend_run_dlg(x)        gtkrundlg_event (x)
diff --git a/gnome/gwidget.c b/gnome/gwidget.c
index 268061f02..9905f2f3f 100644
--- a/gnome/gwidget.c
+++ b/gnome/gwidget.c
@@ -161,8 +161,6 @@ x_radio_toggle (WRadio *radio)
 	for (i = 0; i < radio->count; i++){
 		GtkBoxChild *bc = (GtkBoxChild *) children->data;
 
-		if (GTK_TOGGLE_BUTTON (bc->widget)->active)
-			gtk_toggle_button_toggled
 		gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (bc->widget), (i == radio->sel) ? 1 : 0);
 		children = children->next;
 	}
diff --git a/po/mc.pot b/po/mc.pot
index 0bc242e16..fb549afcc 100644
--- a/po/mc.pot
+++ b/po/mc.pot
@@ -1,6 +1,6 @@
 msgid ""
 msgstr ""
-"Date: 1998-04-15 22:34:13-0500\n"
+"Date: 1998-04-16 13:12:28-0500\n"
 "From: Miguel de Icaza,computo,622-4680 <miguel@metropolis.nuclecu.unam.mx>\n"
 "Content-Type: text/plain; charset=\n"
 "Xgettext-Options: --default-domain=mc --directory=.. --add-comments --keyword=_ --keyword=N_ --files-from=./POTFILES.in\n"
diff --git a/src/ChangeLog b/src/ChangeLog
index a00bc6690..9f3d1eab2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+1998-04-16  Miguel de Icaza  <miguel@nuclecu.unam.mx>
+
+	* widget.c (x_radio_toggle): New per-port variable: PORT_HAS_RADIO_TOGGLE
+
 1998-04-15  Miguel de Icaza  <miguel@nuclecu.unam.mx>
 
 	* screen.c (GT): Assign two spaces for the minimum size of the
diff --git a/src/widget.c b/src/widget.c
index 7fd76352e..6d0e62417 100644
--- a/src/widget.c
+++ b/src/widget.c
@@ -66,6 +66,10 @@
 #   define x_radio_focus_item(r)
 #endif
 
+#ifndef PORT_HAS_RADIO_TOGGLE
+#   define x_radio_toggle
+#endif
+
 static int button_event (Gpm_Event *event, WButton *b);
 
 int quote = 0;