diff --git a/src/brmember.scm b/src/brmember.scm
index 2913523..78393ff 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -222,10 +222,14 @@
 
  ;; Returns member info key value
  (define (brmember-info mr key . defaults)
-   (let ((info (ldict-ref mr 'info)))
-     (if (null? defaults)
-	 (ldict-ref info key)
-	 (ldict-ref info key (car defaults)))))
+   (let ((info (ldict-ref mr 'info #f)))
+     (if info
+	 (if (null? defaults)
+	     (ldict-ref info key)
+	     (ldict-ref info key (car defaults)))
+	 (if (null? defaults)
+	     (error 'brmember-info "Info key is missing.")
+	     (car defaults)))))
 
  ;; Return mandatory keys with #f as value
  (define (brmember-missing-keys mr)