1 files changed, 2 insertions, 2 deletions
diff --git a/save.pl b/save.pl
index fac8995..5990d16 100644
--- a/save.pl
+++ b/save.pl
@@ -72,8 +72,8 @@ chain_atom(C, A) :-
 	chain_atom_x(C, '', A).
 
 chain_atom_x(C, A0, A) :-
-	(   get(C, delete_head, A1),
-	    atom_concat(A0, A1, A2),
+	(   get(C, delete_head, A1)
+	->  atom_concat(A0, A1, A2),
 	    atom_concat(A2, '
 ', A3),
 	    chain_atom_x(C, A3, A)