diff --git a/src/pregmod/widgets/extendedFamilyWidgets.tw b/src/pregmod/widgets/extendedFamilyWidgets.tw
index 47c7eaae97fe41a3ce9dd4111097e182bb2b24c8..3431ad315993e3b5bb9c877235102e12fe2d51a0 100644
--- a/src/pregmod/widgets/extendedFamilyWidgets.tw
+++ b/src/pregmod/widgets/extendedFamilyWidgets.tw
@@ -935,7 +935,7 @@
 <<set _slaveName = $slaves[_i].slaveName>>
 <<print "
 <<link _slaveName>>
-<<set $activeSlave.mother = _id>>
+<<set $activeSlave.mother = " + _id + ">>
 <<redisplayFamily>>
 <</link>>
 ">>
@@ -954,7 +954,7 @@
 <<set _slaveName = $slaves[_i].slaveName>>
 <<print "
 <<link _slaveName>>
-<<set $activeSlave.father = _id>>
+<<set $activeSlave.father = " + _id + ">>
 <<redisplayFamily>>
 <</link>>
 ">>
@@ -980,9 +980,10 @@
 <<for _i = 0; _i < $slaves.length; _i++>>
  |
 <<set _slaveName = $slaves[_i].slaveName>>
-<<set _slave = $slaves[_i]>>
 
+<<print "
 <<link _slaveName>>
+<<set _slave = $slaves[" + _i + "]>>
 <<if _slave.mother != 0>>
 <<set $activeSlave.mother = _slave.mother>>
 <<elseif $activeSlave.mother != 0>>
@@ -993,7 +994,7 @@
 <</if>>
 <<redisplayFamily>>
 <</link>>
-
+">>
 <</for>>
 
 <br>''Same father as:'' <span id="sameFatherNames"><<listOfSlavesWithSameParent 'father'>></span>.
@@ -1018,9 +1019,9 @@
 <<for _i = 0; _i < $slaves.length; _i++>>
  |
 <<set _slaveName = $slaves[_i].slaveName>>
-<<set _slave = $slaves[_i]>>
-
+<<print "
 <<link _slaveName>>
+<<set _slave = $slaves[" + _i + "]>>
 <<if _slave.father != 0>>
 <<set $activeSlave.father = _slave.father>>
 <<elseif $activeSlave.father != 0>>
@@ -1031,7 +1032,7 @@
 <</if>>
 <<redisplayFamily>>
 <</link>>
-
+">>
 <</for>>
 
 <br>''Mother of the children:'' <span id="motheredNames"><<listOfSlavesWithParent "mother" $activeSlave.ID>></span>.
@@ -1056,11 +1057,14 @@
 <<set _slave = $slaves[_i]>>
 <<if ($activeSlave.actualAge - _slave.actualAge) >= $fertilityAge>>
  |
+<<print "
 <<link _slaveName>>
+<<set _slave = $slaves[" + _i + "]>>
 <<set _slave.mother = $activeSlave.ID>>
 <<if $activeSlave.vagina == 0>><<set $activeSlave.vagina = 1>><</if>>
 <<redisplayFamily>>
 <</link>>
+">>
 <</if>>
 <</for>>
 <</if>>
@@ -1087,10 +1091,13 @@
 <<set _slave = $slaves[_i]>>
 <<if ($activeSlave.actualAge - _slave.actualAge) >= $fertilityAge>>
  |
+<<print "
 <<link _slaveName>>
+<<set _slave = $slaves[" + _i + "]>>
 <<set _slave.father = $activeSlave.ID>>
 <<redisplayFamily>>
 <</link>>
+">>
 <</if>>
 <</for>>
 <</if>>