diff --git a/qse/lib/utl/sed.c b/qse/lib/utl/sed.c
index 1cb29ecf..4f053440 100644
--- a/qse/lib/utl/sed.c
+++ b/qse/lib/utl/sed.c
@@ -772,16 +772,11 @@ qse_printf (QSE_T("cmd->u.branch.target = [%p]\n"), cmd->u.branch.target);
 			break;
 
 		case QSE_T('r'):
-			/* TODO */
-			break;
 		case QSE_T('R'):
-			/* TODO */
-			break;
-
 		case QSE_T('w'):
-			/* TODO */
-			break;
 		case QSE_T('W'):
+			cmd->type = c;
+			
 			/* TODO */
 			break;
 
@@ -796,6 +791,7 @@ qse_printf (QSE_T("cmd->u.branch.target = [%p]\n"), cmd->u.branch.target);
 			break;
 
 		case QSE_T('s'):
+			/* TODO */
 			break;
 		case QSE_T('y'):
 			cmd->type = c;
diff --git a/qse/lib/utl/sed.h b/qse/lib/utl/sed.h
index 88b04a69..88ea3f79 100644
--- a/qse/lib/utl/sed.h
+++ b/qse/lib/utl/sed.h
@@ -101,13 +101,13 @@ struct qse_sed_cmd_t
 
 		/* r filename - append a text from a file */
 		QSE_SED_CMD_R   = QSE_T('r'),
-		/* R filename - append a line from a file */
+		/* R filename - append a text from a file */
 		QSE_SED_CMD_RR  = QSE_T('R'),
 
 		/* w filename - write pattern space to a file */
-		QSE_SED_CMD_W   = QSE_T('r'),
+		QSE_SED_CMD_W   = QSE_T('w'),
 		/* W filename - write first line of pattern space to a file */
-		QSE_SED_CMD_WW  = QSE_T('R'),
+		QSE_SED_CMD_WW  = QSE_T('W'),
 
 		QSE_SED_CMD_Q   = QSE_T('q'),
 		QSE_SED_CMD_QQ  = QSE_T('Q'),