diff --git a/src/prolog/io.rs b/src/prolog/io.rs
index 71139aea..c81c2004 100644
--- a/src/prolog/io.rs
+++ b/src/prolog/io.rs
@@ -630,7 +630,7 @@ pub fn print(wam: &mut Machine, result: EvalSession) {
 
                     for c in stdin.keys() {
                         match c.unwrap() {
-                            Key::Char(' ') => {
+                            Key::Char(' ') | Key::Char(';') => {
                                 write!(stdout, " ;\n\r").unwrap();
                                 result = wam.continue_query(&alloc_locs, &mut heap_locs);
                                 break;