diff --git a/s4-funcs.sh b/s4-funcs.sh
index 82c5f46..741168c 100755
--- a/s4-funcs.sh
+++ b/s4-funcs.sh
@@ -683,7 +683,7 @@
 miniul() {
   sed -e '
 	/^\* / {;			# 行頭 "* "
-	 x; s,^,<ul>,; x;		# 1週目: ホールドスペース先頭に <ul> を
+	 x; s,^,<ul>,; x;		# 1周目: ホールドスペース先頭に <ul> を
 	:top
 	 s/\n//;
 	 s/^  *//;			# 2周目以降: 行頭空白削除
@@ -713,14 +713,15 @@
 miniol() {
   sed -e '
 	/^[1-9]\. / {;			# 行頭 "N. "
-	 x; s,^,<ol>,; x;		# 1週目: ホールドスペース先頭に <ol> を
+	 h;x;				# 1周目: ホールドスペース先頭に <ol> を
+	 s,^\([1-9][0-9]*\)\. .*,<ol start="\1">,;     # 初期番号付きで追加
+	 x;
 	:top
 	 s/\n//;
 	 s/^  *//;			# 2周目以降: 行頭空白削除
 	 H;				# 置き換え結果をホールドスペースに追加
 	 x;
-	 s,^<ol>\n\([1-9][0-9]*\)\. ,<ol start="\1"><li>,;	# 1行目のみ
-	 s,[1-9][0-9]*\. ,,;			# まず行頭の "N. " を消しておく
+	 s,[1-9][0-9]*\. ,,;		# まず行頭の "N. " を消しておく
 	 x;
 	 s/.*//;			# パターンスペースは消しておく
 	 # ↓最終行なら残ったホールドスペース処理のため :cont へ