diff --git a/src/ChangeLog b/src/ChangeLog
index c4d350b29e7b02025b822a927fe8d30f552bfc40..ff0b388f281580ac6ddd3ea58c428651fafa0ee6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
+Thu Apr 29 00:07:36 1993  Linus Tolke Y  (linus@bodil)
+
+	* edit-text.el (lyskom-create-text-handler): Better error message.
+
+	* commands1.el (lyskom-add-member-answer,
+	  lyskom-add-member-answer-rd_prot): Better message when trying to
+	  join a rd_protected conference.
+
 Tue Apr 27 00:48:00 1993  Linus Tolke Y  (linus@bodil)
 
 	* commands2.el, swedish-strings.el, english-strings.el
diff --git a/src/commands1.el b/src/commands1.el
index dc7b75c69570e2be122ed5414e6c218adfd228d9..336bba4e067ee03c0ce41da25cd7f588315e38a4 100644
--- a/src/commands1.el
+++ b/src/commands1.el
@@ -390,7 +390,17 @@ If THENDO is nil then execute lyskom-end-of-command."
 					&optional thendo data)
   "Handle the result from an attempt to add a member to a conference."
   (if (null answer)
-      (lyskom-handle-command-answer answer)
+      (progn
+	(lyskom-insert-string 'nope)
+	(if (conf-type->rd_prot conf-conf-stat)
+	    (initiate-get-conf-stat 'main 'lyskom-add-member-answer-rd_prot
+				    (conf-stat->supervisor conf-conf-stat)
+				    conf-conf-stat)
+	  (lyskom-format-insert 'error-code
+				(lyskom-get-error-text lyskom-errno)
+				lyskom-errno)
+	  (lyskom-end-of-command)))
+
     (lyskom-insert-string 'done)
     (cache-del-pers-stat (conf-stat->conf-no pers-conf-stat)) ;+++Borde {ndra i cachen i st{llet.
     (cache-del-conf-stat (conf-stat->conf-no conf-conf-stat)) ;+++Borde {ndra i cachen i st{llet.
@@ -404,6 +414,18 @@ If THENDO is nil then execute lyskom-end-of-command."
 	  (apply 'lyskom-run 'main thendo data)))))
 
 
+(defun lyskom-add-member-answer-rd_prot (supervisorconf conf-conf-stat)
+  "Suggests that we contact the supervisor to become a member."
+  (if (not supervisorconf)
+      (lyskom-format-insert 'cant-find-supervisor
+			    (conf-stat->name conf-conf-stat))
+    (lyskom-format-insert 'is-read-protected-contact-supervisor
+			  (conf-stat->name conf-conf-stat)
+			  (conf-stat->name supervisorconf)))
+  (lyskom-end-of-command))
+
+
+
 (defun lyskom-add-membership (membership conf-stat &optional thendo data)
   "Adds MEMBERSHIP to the sorted list of memberships.
 Args: MEMBERSHIP CONF-STAT THENDO DATA
diff --git a/src/edit-text.el b/src/edit-text.el
index ad3752a572e510bdfb52ee82a78b6412932602b7..c7d619b878ef660a599541d00ac8c1fb69f01116 100644
--- a/src/edit-text.el
+++ b/src/edit-text.el
@@ -634,9 +634,11 @@ Point must be located on the line where the subject is."
   (cond
    ((null text-no)
     (lyskom-insert-before-prompt
-     (lyskom-format 'could-not-create-text lyskom-errno))
+     (lyskom-format 'could-not-create-text lyskom-errno
+		    (lyskom-get-error-text lyskom-errno)))
     (beep)
-    (lyskom-message (lyskom-format 'could-not-create-text lyskom-errno))
+    (lyskom-message (lyskom-format 'could-not-create-text lyskom-errno
+				   (lyskom-get-error-text lyskom-errno)))
     (set-buffer edit-buffer)
     (setq mode-name lyskom-edit-mode-name)
     (sit-for 0))
diff --git a/src/swedish-strings.el b/src/swedish-strings.el
index 0d8e4df9df0c6228db592f48b2b1bc82eaca62dd..b7291cb7278099fe3b4a8722c1f63df215cb0ffb 100644
--- a/src/swedish-strings.el
+++ b/src/swedish-strings.el
@@ -200,6 +200,10 @@ Guran vill helst s\344tta en giftpil i dig.\n\n")
     (done . "klart.\n")
     (nope . "Det gick inte.\n")
 
+    (cant-find-supervisor . "Hittar inte organisat\366ren f\366r %#1s.\n")
+    (is-read-protected-contact-supervisor . "%#1s \344r slutet.
+Skicka ett brev till %#2s f\366r medlemsskap.\n")
+
     (conf-does-not-exist . "\nM\366tet finns inte.\n")
 
     (who-to-exclude . "Vem vill du utesluta? ")
@@ -502,7 +506,7 @@ M\344rk kuvertet LysKOM buggrapport.\n\n")
     (added-carbon-copy . "Extra kopia till m\366te: ")
     (conf-has-motd-no . "M\366tet har en lapp p\345 d\366rren. (%#1d)\n\n%#2s")
     (still-want-to-add . "Vill du fortfarande addera m\366tet? ")
-    (could-not-create-text . "\nTexten kunde ej skapas. Felkod: %#1d.\n")
+    (could-not-create-text . "\nTexten kunde ej skapas. Felet: %#2s.\n")
     (no-get-text . "Du fick inte h\344mta texten.")