diff --git src/Makefile src/Makefile
index 33d8b8c..89e68a8 100644
--- src/Makefile
+++ src/Makefile
@@ -2031,7 +2031,6 @@ test1 \
 	test_mapping \
 	test_marks \
 	test_nested_function \
-	test_options \
 	test_search_mbyte \
 	test_signs \
 	test_tagcase \
diff --git src/option.c src/option.c
index b9b59ee..30f601a 100644
--- src/option.c
+++ src/option.c
@@ -4919,12 +4919,28 @@ do_set(
 			    {
 				/* Remove flags that appear twice. */
 				for (s = newval; *s; ++s)
-				    if ((!(flags & P_COMMA) || *s != ',')
-					    && vim_strchr(s + 1, *s) != NULL)
+				{
+				    /* if options have P_FLAGLIST and P_ONECOMMA such as 'whichwrap' */
+				    if (flags & P_ONECOMMA)
+				    {
+					if ( (*s != ',') && (*(s + 1) == ',')
+						&& vim_strchr(s + 2, *s) != NULL)
+					{
+					    /* Remove the duplicated value and the next comma. */
+					    STRMOVE(s, s + 2);
+					    s -= 2;
+					}
+				    }
+				    else
 				    {
-					STRMOVE(s, s + 1);
-					--s;
+					if ((!(flags & P_COMMA) || *s != ',')
+						&& vim_strchr(s + 1, *s) != NULL)
+					{
+					    STRMOVE(s, s + 1);
+					    --s;
+					}
 				    }
+				}
 			    }
 
 			    if (save_arg != NULL)   /* number for 'whichwrap' */
diff --git src/testdir/Make_all.mak src/testdir/Make_all.mak
index e7e4c68..02f2611 100644
--- src/testdir/Make_all.mak
+++ src/testdir/Make_all.mak
@@ -101,7 +101,6 @@ SCRIPTS_ALL = \
 	test_mapping.out \
 	test_marks.out \
 	test_nested_function.out \
-	test_options.out \
 	test_search_mbyte.out \
 	test_signs.out \
 	test_tagcase.out \
diff --git src/testdir/test_alot.vim src/testdir/test_alot.vim
index 0245fad..8dd6984 100644
--- src/testdir/test_alot.vim
+++ src/testdir/test_alot.vim
@@ -38,3 +38,4 @@ source test_timers.vim
 source test_true_false.vim
 source test_unlet.vim
 source test_window_cmd.vim
+source test_options.vim
diff --git src/testdir/test_options.in src/testdir/test_options.in
deleted file mode 100644
index 6e56fa2..0000000
--- src/testdir/test_options.in
+++ /dev/null
@@ -1,23 +0,0 @@
-Test for ":options".
-
-STARTTEST
-:so small.vim
-:let caught = 'ok'
-:try
-  :options
-:catch 
-  :let caught = v:throwpoint . "\n" . v:exception
-:endtry
-:buf 1
-:$put =caught
-:"
-:" Test that changing 'path' keeps two commas.
-:set path=foo,,bar
-:set path-=bar
-:set path+=bar
-:$put =&path
-:/^result/,$w! test.out
-:qa!
-ENDTEST
-
-result
diff --git src/testdir/test_options.ok src/testdir/test_options.ok
deleted file mode 100644
index 0773152..0000000
--- src/testdir/test_options.ok
+++ /dev/null
@@ -1,3 +0,0 @@
-result
-ok
-foo,,bar
diff --git src/testdir/test_options.vim src/testdir/test_options.vim
new file mode 100644
index 0000000..cceb180
--- /dev/null
+++ src/testdir/test_options.vim
@@ -0,0 +1,40 @@
+" Test for options
+
+function! Test_whichwrap()
+  set whichwrap=b,s
+  call assert_equal('b,s', &whichwrap)
+
+  set whichwrap+=h,l
+  call assert_equal('b,s,h,l', &whichwrap)
+
+  set whichwrap+=h,l
+  call assert_equal('b,s,h,l', &whichwrap)
+
+  set whichwrap+=h,l
+  call assert_equal('b,s,h,l', &whichwrap)
+
+  set whichwrap&
+endfunction
+
+function! Test_options()
+  let caught = 'ok'
+  try
+    options
+  catch
+    let caught = v:throwpoint . "\n" . v:exception
+  endtry
+  call assert_equal('ok', caught)
+
+  " close option-window
+  close
+endfunction
+
+function! Test_path_keep_commas()
+  " Test that changing 'path' keeps two commas.
+  set path=foo,,bar
+  set path-=bar
+  set path+=bar
+  call assert_equal('foo,,bar', &path)
+
+  set path&
+endfunction