| … | … | @@ -91,7 +91,7 @@ |
| 91 | 91 | ;; Helper to check if a cogserver is running |
| 92 | 92 | (define (cogserver-running? csn) |
| 93 | 93 | (define val (cog-value csn (Predicate "*-is-running?-*"))) |
| 94 | (and val (car (cog-value->list val)))) | |
| 94 | (and val (cog-value-ref val 0))) | |
| 95 | 95 | |
| 96 | 96 | ;; ===== Single cogserver ===== |
| 97 | 97 | (define single-telnet-port 17101) |