diff --git a/sx_prefix.c b/sx_prefix.c
index 2686a58..39f57c8 100644
--- a/sx_prefix.c
+++ b/sx_prefix.c
@@ -226,7 +226,7 @@ next:
 				node->parent->r=node->r;
 				node->r->parent=node->parent;
 			} else if(node->parent->l==node) { 
-				node->parent->l=node->l;
+				node->parent->l=node->r;
 				node->r->parent=node->parent;
 			} else { 
 				sx_report(SX_ERROR,"Unlinking node which is not descendant "
@@ -369,6 +369,7 @@ next:
 			rn->l=ret;
 			rn->r=chead;
 		};
+		rn->parent=chead->parent;
 		chead->parent=rn;
 		ret->parent=rn;
 		rn->isGlue=1;